home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 012 / kbbuff.arc / KBBUFF.BAS next >
BASIC Source File  |  1985-08-10  |  3KB  |  48 lines
  1.  
  2.  10 CLS:PRINT"This basic program was created by CONVERT.BAS":KEY OFF:DEFINT A-Z:FALSE=0:TRUE=NOT FALSE
  3.  20 PRINT"Copyright 1983 ,Rich Schinnell Rockville,MD. Not for Sale."
  4.  30 PRINT "This program will create  you a program named KBBUFF.COM":PRINT 
  5.  40 ON ERROR GOTO 5000
  6.  50 INPUT "PLACE the disk to write the file TO in the DEFAULT Drive. Press <ENTER> "; CAPITAL$
  7.  90 CLS:LOCATE 12,5:PRINT "Now writing file named KBBUFF.COM standby please  "
  8. 100 RESTORE
  9. 110 OPEN "R", #1,"KBBUFF.COM",1 
  10. 120 FIELD #1, 1 AS N$
  11. 130 READ N:LL=(N/28)+1
  12. 140 FOR I = 1 TO N
  13. 150 READ X$,CHECK:FOR C=1 TO LEN(X$) STEP 2:CC$="&H"+MID$(X$,C,2):IF CHECK=9999 THEN 170
  14. 155 LSET N$=CHR$(VAL(CC$)):PUT #1:CHECK=CHECK-VAL(CC$):NEXT C:IF CHECK<>0 THEN 5000
  15. 160 LOCATE 14,5:PRINT TIME$;" Reading data line #";(1000+I);" lines left=";LL-I;:NEXT I:CLOSE
  16. 170 LOCATE 16,5:PRINT "KBBUFF.COM CREATED * *":GOTO 5010
  17. 1000 DATA  696
  18. 1001 DATA E95B0200000000000000000F010F0100000000000000000000000000,358
  19. 1002 DATA 00000000000000000000000000000000000000000000000000000000,0
  20. 1003 DATA 00000000000000000000000000000000000000000000000000000000,0
  21. 1004 DATA 00000000000000000000000000000000000000000000000000000000,0
  22. 1005 DATA 00000000000000000000000000000000000000000000000000000000,0
  23. 1006 DATA 00000000000000000000000000000000000000000000000000000000,0
  24. 1007 DATA 00000000000000000000000000000000000000000000000000000000,0
  25. 1008 DATA 00000000000000000000000000000000000000000000000000000000,0
  26. 1009 DATA 00000000000000000000000000000000000000000000000000000000,0
  27. 1010 DATA 00000000000000000000000000000000000000000000000000000000,0
  28. 1011 DATA 00000000000000000000000000000000000000000000000000000000,0
  29. 1012 DATA 00000000000000000000000000000000000000000000000000000050,80
  30. 1013 DATA 53519CFABB1E00E4615024FCE661B93C00E2FE0C02E661B93C00E2FE,3598
  31. 1014 DATA 4B75EB58E6619D595B58C3BB40008EDBFA8B1E1A003B1E1C00751DBB,2969
  32. 1015 DATA 1E00891E1A0083C302891E1C008CCB8EDBBB0F01891E0B01891E0D01,2013
  33. 1016 DATA FBC31E565350E8CAFF9C2EFF1E0301BB40008EDB2E8B360D018B1E1A,2965
  34. 1017 DATA 0083C30283FB3E7203BB1E003B1E1C0074268B072E890483C60281FE,2424
  35. 1018 DATA 4F027203BE0F012E3B360B017505E862FFEB052E89360D01891E1A00,1966
  36. 1019 DATA A01700240C3C0C75082EA10D012EA30B01585B5E1FCFFB1E53E863FF,2331
  37. 1020 DATA 8CCB8EDB0AE4740BFECC7429FECC74365B1FCFFB90FA8B1E0B013B1E,3556
  38. 1021 DATA 0D0174F38B0783C30281FB4F027503BB0F01891E0B015B1FCFFA8B1E,2558
  39. 1022 DATA 0B013B1E0D018B07FB5B1FCA0200FF2E07011EB800008ED8FAA12400,2166
  40. 1023 DATA 2EA30301A126002EA30501C7062400A6028C0E2600FBA158002EA307,1944
  41. 1024 DATA 01A15A002EA30901C70658000E038C0E5A00B840008ED8FABB1E0089,2235
  42. 1025 DATA 1E1A00C707000083C302891E1C00FBBA5E03CD2700000000,1563
  43. 1026 DATA 000000,9999
  44. 5000 PRINT "* * ERROR VERIFY FOLLOWING DATA * * * "
  45. 5005 PRINT X$;",";CHECK 
  46. 5010 KEY ON:CLOSE:END
  47. 65399 '** DONE - PRESS ENTER TO RETURN TO MENU **
  48.